SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/main.dcr/scripts_615.ls

Text File | 2003-02-25 | 758 b | 34 lines

on prepareFrame
  global min_duration
  DefCurs()
  set chn to 113
  if the duration of the member of sprite chn <= min_duration then
    set the movieRate of sprite chn to 1
  end if
end

on exitFrame
  global dire
  LiveRollOver2mask(113, 2, 113, 1)
  if dire = 1 then
    if SpriteExists(113) > 0 then
      set the directToStage of member the member of sprite 113 to 1
    end if
    set dire to 0
  end if
  if rollOver(2) or rollOver(113) then
    set the member of sprite 119 to "aktiivisuus_pallo"
  else
    set the member of sprite 119 to "aktiivisuus"
  end if
  set a to the volume of sound 1 - 5
  if a < 0 then
    set a to 0
  end if
  if a <> the volume of sound 1 then
    set the volume of sound 1 to a
  end if
  put a
  go(the frame)
end